PROGRAM EXAMPLE;

USES TIMEMASTERII;
  
BEGIN

  PAGE(OUTPUT);
  GOTOXY(5,5);
  WRITE(TODAY);
  GOTOXY(25,5);
  WRITELN(TIME);
  GOTOXY(6,10);
  WRITELN('WELCOME TO APPLE PASCAL ');
  GOTOXY(15,12);
  WRITELN('FEATURING');
  GOTOXY(8,14);
  WRITELN('THE TIMEMASTER II CLOCK');
  GOTOXY(19,16);
  WRITELN('BY');
  GOTOXY(10,18);
  WRITELN('APPLIED ENGINEERING');
  
END.